CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/Battle of Britain 1 •••••/Battle of Britain 1 еееее/card_10410.txt

Text File | 1990-08-26 | 32KB | 1,588 lines

-- card: 10410 from stack: in
-- bmap block id: 9073
-- flags: 4000
-- background id: 2789
-- name: C
----- HyperTalk script -----
on openCard

  global justVisiting,BBDATE,reset,bbtime,landtime    --new
  put 4 into standby
  put 7 into ordered
  put 8 into landed
  repeat
    if hilite of button ordered is true then
      set hilite of button ordered to false
      set hilite of button landed to true
    end if
    if hilite of button landed is true then
      IF LANDTIME <BBTIME THEN
        SET HILITE OF BUTTON LANDED TO FALSE          --new
        set hilite of button standby to true

      end if
    END IF
    add 7 to standby
    add 7 to ordered
    add 7 to landed
    if landed >30 then           --CHANGE
      exit repeat
    end if
  end repeat

  if justVisiting is empty then
    exit openCard
  end if
  put 2 into released
  put 3 into avail
  put 5 into patrol

  HIDE CARD FIELD "SHUTDOWN"                        --NEW
  repeat 4 TIMES
    if hilite of button patrol is true then
      send "go" to button patrol
    else
      if hilite of button released is true then
        send "go" to button released
      else
        send "go" to button avail
      end if
    end if
    add 7 to released
    add 7 to avail
    add 7 to patrol
  end repeat
  if bbDate contains "AUG 27" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 372,0,512,342

  if reset =1 then
    REPEAT WITH I =1 TO THE NUMBER OF BUTTONS
      SET  HILITE OF BUTTON I TO FALSE
    END REPEAT
    SET HILITE OF BUTTON 4 TO TRUE
    SET HILITE OF BUTTON 11 TO TRUE
    SET HILITE OF BUTTON 18 TO TRUE
    SET HILITE OF BUTTON 25 TO TRUE
    SET RECT OF CARD FIELD "HIDESQUADS" TO 308,0,512,342
    HIDE CARD FIELD "SHUTDOWN"                       --new
    repeat with i =166 to 169
      put empty into card field id i
    end repeat
  end if
end openCard
ON SHUTDOWN
  SHOW CARD FIELD "SHUTDOWN" OF CARD "C"             --NEW
END SHUTDOWN
on closecard
  hide card field "outofrange"
end closecard




-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=9 top=63 right=167 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  go to card "map"
end mouseUp



-- part 121 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=44 right=66 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 28 into releaseDate
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 28 into releaseDate
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 3 into avail
  put 28 into releaseDate
  RELEASE
END GO

















-- part 122 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=65 right=85 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go
  put 4 into standby
  if hilite of ME is true then
    set the hilite of  ME to false
    set the hilite of button standby to true
  end if
end go





-- part 123 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=116 top=84 right=108 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 124 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=107 right=132 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 2 into released
  put 3 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 4 into standby
  put "231,191" into coord     ---CHANGES
  put 70 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 4 into standby
  put 70 into idplane
  put "231,191" into coord

  set hilite of me to false
  set hilite of button standby to true

  hide button id idplane of card "map"
end go









-- part 125 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=144 right=172 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ501C
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 3 into avail
  put 4 into standby
  put 5 into patrol
  put 6 into detail                                         --CHANGES
  put 70 into idplane
  put "C" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane,sorties
  put 3 into avail
  put 4 into standby
  put 5 into patrol
  put 6 into detail                                         --CHANGES
  put 70 into idplane
  put 166 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 2 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 1.5 to force   --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 2 into released
  put 3 into avail
  put 28 into releaseDate                                 --CHANGES
  put "C" into base
  put "231,191" into coord
  put 70 into idplane
  put 166 into sorties
  resultsa
end results









-- part 126 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=171 right=201 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "231,191" into coord
  put 5 into patrol
  put 6 into detail                                          --CHANGES
  put 70 into idplane
  land
end mouseUp





-- part 127 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=200 right=229 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 128 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=44 right=66 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 60 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 60 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 10 into avail                           --CHANGES
  put 60 into releaseDate
  RELEASE
END GO













-- part 129 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=65 right=85 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseup

on go

  put 11 into standby
  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if
end go





-- part 130 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=180 top=84 right=108 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 131 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=107 right=132 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 9 into released
  put 10 into avail
  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 11 into standby
  put "246,191" into coord               --CHANGES
  put 73 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true


      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 11 into standby                                     --CHANGES
  put "246,191" into coord               --CHANGES
  put 73 into idplane
  set hilite of me to false
  set hilite of button standby to true


  hide button id idplane of card "map"

end go








-- part 132 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=144 right=172 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ610C
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 10 into avail
  put 11 into standby
  put 12 into patrol
  put 13 into detail                                         --CHANGES
  put 73 into idplane
  put "C" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 10 into avail
  put 11 into standby
  put 12 into patrol
  put 13 into detail                                         --CHANGES
  put 73 into idplane
  put 167 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force  --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 9 into released
  put 10 into avail
  put 60 into releaseDate                                 --CHANGES
  put "C" into base
  put "246,191" into coord
  put 73 into idplane
  put 167 into sorties
  resultsa
end results
















-- part 133 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=171 right=201 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "246,191" into coord
  put 12 into patrol
  put 13 into detail                                          --CHANGES
  put 73 into idplane
  land
end mouseUp





-- part 134 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=200 right=229 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 135 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=44 right=66 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 61 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 61 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 17 into avail                           --CHANGES
  put 61 into releaseDate
  RELEASE
END GO




-- part 136 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=65 right=85 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 18 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go





-- part 137 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=244 top=84 right=108 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 138 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=107 right=132 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 16 into released             -- CHANGES
  put 17 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 18 into standby
  put "246,176" into coord
  put 71 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true


      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 18 into standby
  put "246,176" into coord
  put 71 into idplane

  set hilite of me to false
  set hilite of button standby to true


  hide button id idplane of card "map"
end go












-- part 60 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=159 top=32 right=88 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate2
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate2"
end mouseUp



-- part 139 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=144 right=172 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQD32C
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 17 into avail
  put 18 into standby
  put 19 into patrol
  put 20 into detail                                         --CHANGES
  put 71 into idplane
  put "C" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 17 into avail
  put 18 into standby
  put 19 into patrol
  put 20 into detail                                         --CHANGES
  put 71 into idplane
  put 168 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 2 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 1.5 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 16 into released
  put 17 into avail
  put 61 into releaseDate                                 --CHANGES
  put "C" into base
  put "246,176" into coord
  put 71 into idplane
  put 168 into sorties
  resultsa
end results














-- part 140 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=171 right=201 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "246,176" into coord
  put 19 into patrol
  put 20 into detail                                          --CHANGES
  put 71 into idplane
  land
end mouseUp




-- part 141 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=200 right=229 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 142 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=44 right=66 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 62 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 62 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 24 into avail                           --CHANGES
  put 62 into releaseDate
  RELEASE
END GO
















-- part 144 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=65 right=85 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 25 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go





-- part 145 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=308 top=84 right=108 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 146 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=107 right=132 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 23 into released
  put 24 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 25 into standby
  put "231,161" into coord               --CHANGES
  put 72 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true


      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 25 into standby
  put "231,161" into coord               --CHANGES
  put 72 into idplane
  set hilite of me to false
  set hilite of button standby to true


  hide button id idplane of card "map"

end go









-- part 61 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=224 top=32 right=88 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate3
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate3"
end mouseUp



-- part 147 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=144 right=172 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQD79C
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 24 into avail
  put 25 into standby
  put 26 into patrol
  put 27 into detail                                         --CHANGES
  put 72 into idplane
  put "C" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 24 into avail
  put 25 into standby
  put 26 into patrol
  put 27 into detail                                         --CHANGES
  put 72 into idplane
  put 169 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 2 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 1.5 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 23 into released
  put 24 into avail
  put 62 into releaseDate                                 --CHANGES
  put "C" into base
  put "231,161" into coord
  put 72 into idplane
  put 169 into sorties
  resultsa
end results













-- part 148 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=171 right=201 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "231,161" into coord
  put 26 into patrol
  put 27 into detail                                          --CHANGES
  put 72 into idplane
  land
end mouseUp





-- part 149 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=200 right=229 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 63 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=355 top=30 right=84 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate5
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate5"
end mouseUp



-- part 109 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=423 top=36 right=91 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate6
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate6"
end mouseUp



-- part 16 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=220 top=85 right=154 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: nono
----- HyperTalk script -----
on mouseUp
  hide card field id 16
end mouseUp



-- part 169 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=315 top=254 right=307 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 167 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=187 top=254 right=307 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 168 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=251 top=254 right=308 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 31 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=308 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hideSquads


-- part 165 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=100 top=141 right=166 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: outOfRange
----- HyperTalk script -----
--on no
-- beep
-- show card field "outOfRange" at the mouseh, the mousev

--end no

on mouseUp
  hide card field "outOfRange"
end mouseUp


-- part 28 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=100 top=32 right=88 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate"
end mouseUp



-- part 62 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=294 top=33 right=87 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate4
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate4"
end mouseUp



-- part 166 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=254 right=307 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 173 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=126 top=69 right=93 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: PUB
----- HyperTalk script -----
ON MOUSEUP
  HIDE card field "pub"
END MOUSEUP




-- part 174 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=209 top=135 right=177 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: whatRaid
----- HyperTalk script -----
on mouseUp
  hide card field "whatRaid"
end mouseUp


-- part 176 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=102 top=9 right=106 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 20
-- style flags: 8192
-- line height: 22
-- part name: shutdown


-- part contents for card part 16
----- text -----
You cannot order a RELEASED or AVAILABLE squadron on patrol.

-- part contents for card part 60
----- text -----
AVAILABLE
IN 0 DAYS
AWAITING AIRCRAFT

-- part contents for card part 61
----- text -----
AVAILABLE
IN 1 DAY
PATCHING UP PLANES

-- part contents for card part 62
----- text -----
AVAILABLE
IN 1 DAY
PATCHING UP PLANES


-- part contents for card part 63
----- text -----
AVAILABLE
IN 4 DAYS
PATCHING UP PLANES


-- part contents for card part 109
----- text -----
AVAILABLE
IN 1 DAY
AWAITING AIRCRAFT


-- part contents for card part 165
----- text -----
Too Far.

-- part contents for card part 28
----- text -----
AVAILABLE
IN 1 DAY
PATCHING UP PLANES


-- part contents for card part 173
----- text -----
At the pub.

-- part contents for card part 174
----- text -----

What raid?

-- part contents for card part 176
----- text -----
DUE TO  BOMB DAMAGE
NORMAL OPERATIONS AT THIS AERODROME ARE TEMPORARILY DISRUPTED.